home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / police.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-08-10  |  8.5 KB  |  185 lines
  1. 1  COLOR 7,0:CLS:KEY OFF:WIDTH 40
  2. 2  DEF SEG =0: IF (PEEK(&H410) AND &H30) =&H30 THEN LOCATE 1,1,0 :OUT 948,2: OUT 949,62 :TV = 0
  3. 3  DEF SEG=0:IF (PEEK(&H410) AND &H30)<>&H30 THEN TV = 1:LOCATE 1,1,0,6,7:OUT 980,2 : OUT 981,43 :'TV/mon
  4. 5  DEF FNROW (X)=INT( (X-32769)/40)+1 :DEF FNCOL (X)=X-(32768+40*(FNROW (X)-1)):DEF FNPE(X)=SCREEN(FNROW(X),FNCOL(X)):KEY OFF:PLAY"mb"
  5. 10  RANDOMIZE VAL(RIGHT$(TIME$,2))*VAL(LEFT$(DATE$,2))
  6. 90  PG$="POLICE":NM$="17" : GOSUB 62000
  7. 100  :
  8. 210  DIM E(22),EN(22),M1$(6),M2$(6),LC,LF,LR,LL,LB,D1
  9. 220  DATA 32904,1,33024,2,33030,4,33039,5,33042,4,33094,1,33098,2
  10. 230  DATA 33110,2,33157,5,33162,5,33165,1,33291,4,33298,4,33300,6,33308,3
  11. 240  DATA 33319,5,33322,4,33428,1,33537,2,33543,4,33574,1,33510,2
  12. 250  FOR I=1 TO 22: READ E(I),EN(I): NEXT 
  13. 260  DATA " FREEWAY ","ACCIDENT "," ROBBED  ","  BANK   ","  CANDY  ","STORE HIT"
  14. 270  DATA " RAN RED ","  LIGHT  "," MUGGING "," IN PARK ","ARSON AT ","SHOE MART"
  15. 280  FOR I=1 TO 6: READ M1$(I),M2$(I): NEXT 
  16. 290  GOSUB 340:TIME$="00:00:00": GOSUB 1140:  COLOR 0,7: PRINT "THE HUNT";:COLOR 7,0: LOCATE CSRLIN- 2: BB=0:V=0:C=0
  17. 300  LC=33298:D1=INT(4*RND(1)+1):O1=219:P=32891: LOCATE FNROW(P),FNCOL(P): PRINT CHR$(2)  :O2=196:D=1:Y=170
  18. 310  GOSUB 320: GOSUB 1150: GOSUB 590: GOTO 310
  19. 320  IF TIME$ = T$ THEN RETURN
  20. 330  LOCATE 24,32: PRINT MID$(TIME$,4,2)":" RIGHT$(TIME$,2);:T$=TIME$: RETURN
  21. 340   CLS :  COLOR 0,7: PRINT "      "CHR$(2)"         ";: COLOR 7,0: PRINT "POLICE";: COLOR 0,7: PRINT "     "CHR$(2)"         "CHR$(2)" "
  22. 350   COLOR 0,7: PRINT "     "CHR$(2);:COLOR 7,0:PRINT"CALL";:COLOR 0,7:PRINT"THENTHENTHEN<0xCB!>THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN<0xCB!>THENTHENTHENTHEN";:COLOR 7,0:PRINT"CALL";:COLOR 0,7:PRINT"THEN<0xCB!>THENTHENTHENTHEN<0xCB!>THENTHEN";:COLOR 7,0:PRINT"CALL";: COLOR 0,7:PRINT CHR$(2)
  23. 360   COLOR 0,7: PRINT "      ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "   OPEN           OPEN    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " OPEN    OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " "
  24. 370   COLOR 0,7: PRINT CHR$(2);: COLOR 7,0: PRINT "SOUNDSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBEEP";: COLOR 0,7: PRINT CHR$(2)
  25. 380   COLOR 0,7: PRINT "   OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "   OPEN     A     OPEN    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " OPEN    OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " "
  26. 390   COLOR 0,7: PRINT "   OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "   OPEN           OPENL   ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " OPEN    OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " "
  27. 400   COLOR 0,7: PRINT "   TOTHENTHEN";:COLOR 7,0:PRINT"CALL";:COLOR 0,7:PRINT"THENTHENTHENTAB(THENTHENTHENTHEN<0xCB!>THENTHENTHENTHENTHENTHENTAB(THENTHENTHENTHEN";:COLOR 7,0:PRINT"CALL";:COLOR 0,7:PRINT"THENTAB(THENTHENTHENTHENRANDOMIZEL ";:COLOR 7,0:PRINT"CALL";:COLOR 0,7:PRINT" "
  28. 410   COLOR 0,7: PRINT "   OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "   OPEN    OPENB     OPEN    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " OPEN    OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " "
  29. 420   COLOR 0,7: PRINT "   OPEN A";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "   OPENB   OPEN      OPENB   ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " OPEN P  OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " "
  30. 430   COLOR 0,7: PRINT "   OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "   OPEN    OPEN      OPEN    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " OPEN A  OPEN A";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " "
  31. 440   COLOR 0,7: PRINT "   TOTHENTHEN";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "THENTHENTHENTAB(THENTHENTHENTHENTAB(THENTHENTHENTHENTHENTHENTAB(THENTHENTHENTHEN";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "THENRANDOMIZE R  OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " "
  32. 450   COLOR 0,7: PRINT "   OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "   OPEN    OPEN      OPEN    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " OPEN K  OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " "
  33. 460   COLOR 0,7: PRINT "   OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "   OPEN S  OPEN    C OPEN    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " OPEN    OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " "
  34. 470   COLOR 0,7: PRINT "  LTOTHENTHEN";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "THENTHENTHENTAB(THENTHENTHENTHENTAB(THENTHENTHENTHENTHENTHENTAB(THENTHENTHENTHEN";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "THENTAB(THENTHENTHENTHENRANDOMIZEL ";: COLOR 7,0: PRINT "CALL";:COLOR 0,7:PRINT" "
  35. 480   COLOR 0,7: PRINT "   OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "  LOPEN    OPEN      OPEN    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " OPEN    OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " "
  36. 490   COLOR 0,7: PRINT "   OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "   OPEN    OPEN    A OPEN    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " OPEN    OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " "
  37. 500   COLOR 0,7: PRINT CHR$(2);: COLOR 7,0: PRINT "SOUNDSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBEEP";: COLOR 0,7: PRINT CHR$(2)
  38. 510   COLOR 0,7: PRINT "   OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "   OPEN    OPEN      OPEN    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "         ";CHR$(2);" "
  39. 520   COLOR 0,7: PRINT "   OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "   OPEN    OPEN     BOPEN    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT " CRIME-    "
  40. 530   COLOR 0,7: PRINT "   TOTHENTHEN";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "THENTHENTHENTAB(THENTHENTHENTHENLOCATETHENTHEN<0xCB!>THENTHENTHENRANDOMIZE    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "           "
  41. 540   COLOR 0,7: PRINT "   OPEN A";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "  BOPEN    L  OPEN   OPEN    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "           "
  42. 550   COLOR 0,7: PRINT "   OPEN  ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "   OPEN       OPEN   OPEN    ";: COLOR 7,0: PRINT "CALL";: COLOR 0,7: PRINT "           "
  43. 560   COLOR 0,7: PRINT CHR$(2);: COLOR 7,0: PRINT "SOUNDSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBEEP";: COLOR 0,7: PRINT CHR$(2)"  CLOCK   "
  44. 570   COLOR 0,7: PRINT "      "CHR$(2)"                    "CHR$(2)"     :     " ;: LOCATE CSRLIN-2
  45. 580  LOCATE 25,1:PRINT"                                       ";:LOCATE CSRLIN -2:COLOR 7,0:RETURN
  46. 590  ON D1 GOSUB 710,720,730,740
  47. 600  IF FNPE(LF)=  2 AND FNPE  (LL)<170 AND FNPE (LR)<170 THEN GOSUB 980: RETURN
  48. 610  IF FNPE (LF)= 15 THEN GOSUB 980: RETURN
  49. 620  IF FNPE (LF)=  2 AND ( FNPE (LR)= 1 OR FNPE (LL)= 1) THEN GOSUB 980: RETURN
  50. 630  IF FNPE (LF)= 1 THEN GOSUB 980: RETURN
  51. 640  N=INT(3*RND(1))+1:T1=0:OL=LC
  52. 650  IF N>3 THEN N=1
  53. 660  ON N GOSUB 750,820,900
  54. 670  IF T1=0 THEN N=N+1: GOTO 650
  55. 680  IF V=0 THEN GOSUB 1050
  56. 690  IF V1=1 THEN V1=0: GOSUB 1300
  57. 700  RETURN 
  58. 710  LF=LC+40:LR=LC-1:LL=LC+1:LB=LC-40: RETURN 
  59. 720  LF=LC-1:LR=LC-40:LL=LC+40:LB=LC+1: RETURN 
  60. 730  LF=LC-40:LR=LC+1:LL=LC-1:LB=LC+40: RETURN 
  61. 740  LF=LC+1:LR=LC+40:LL=LC-40:LB=LC-1: RETURN 
  62. 750  PL= FNPE (LF): IF PL>Y THEN 780
  63. 760  RETURN 
  64. 780  N1=PL: IF V=0 THEN 800
  65. 790  LOCATE FNROW(LF),FNCOL(LF) :PRINT CHR$(42):LOCATE FNROW(LC),FNCOL(LC)
  66. 795  IF O1 = 185 OR O1 = 186 OR O1 >200 THEN COLOR 0,7
  67. 796  PRINT CHR$(O1) :COLOR 7,0
  68. 800  O1=N1:LC=LF:T1=1: RETURN 
  69. 810  RETURN 
  70. 820  PL= FNPE (LL): IF PL>Y THEN 850
  71. 830  RETURN 
  72. 850  N1=PL: IF V=0 THEN 870
  73. 860  LOCATE FNROW(LL),FNCOL(LL) :PRINT CHR$(42):LOCATE FNROW(LC),FNCOL(LC)
  74. 865  IF O1 = 185 OR O1 = 186 OR O1 >200 THEN COLOR 0,7
  75. 866  PRINT CHR$(O1) :COLOR 7,0
  76. 870  O1=N1:LC=LL:T1=1
  77. 880  D1=D1-1: IF D1<1 THEN D1=4
  78. 890  RETURN 
  79. 900  PL= FNPE (LR): IF PL>Y THEN 930
  80. 910  RETURN 
  81. 930  N1=PL: IF V=0 THEN 950
  82. 940  LOCATE FNROW(LR),FNCOL(LR) :PRINT CHR$(42):LOCATE FNROW(LC),FNCOL(LC)
  83. 945  IF O1 = 185 OR O1 = 186 OR O1 >200 THEN COLOR 0,7
  84. 946  PRINT CHR$(O1) :COLOR 7,0
  85. 950  O1=N1:LC=LR:T1=1
  86. 960  D1=D1+1: IF D1>4 THEN D1=1
  87. 970  RETURN 
  88. 980  N1= FNPE (LB): IF N1=15  OR N1=2 OR N1=1 THEN 1420
  89. 990  IF V=0 THEN 1010
  90. 1000  LOCATE FNROW(LB),FNCOL(LB) :PRINT CHR$(42):LOCATE FNROW(LC),FNCOL(LC)
  91. 1005  IF O1 = 185 OR O1 = 186 OR O1 >200 THEN COLOR 0,7
  92. 1006  PRINT CHR$(O1) :COLOR 7,0
  93. 1010  O1=N1:LC=LB:T1=1
  94. 1020  D1=D1+2: IF D1>4 THEN D1=D1-4
  95. 1030  ON D1 GOSUB 710,720,730,740
  96. 1040  RETURN 
  97. 1050  FOR I=1 TO 22
  98. 1060  IF LC<>E(I) THEN NEXT : RETURN 
  99. 1070  SOUND 850,3
  100. 1080  LOCATE 19,1
  101. 1090  C=C+1:  LOCATE , 36:COLOR 0,7: PRINT C :COLOR 7,0
  102. 1110   LOCATE , 30: PRINT"         ":  LOCATE , 30: PRINT"         "
  103. 1114  FOR I2=1 TO 3: FOR I1=1 TO 14: SOUND I1*160,1: NEXT I1,I2
  104. 1120   LOCATE CSRLIN- 2:  LOCATE , 30: PRINT M1$(EN(I))
  105. 1130   LOCATE , 30: PRINT M2$(EN(I)): RETURN
  106. 1140   LOCATE 25,13:  RETURN
  107. 1150  D9=D: A$ = INKEY$ :IF LEN (A$)>1 THEN A$=RIGHT$(A$,1):D=-40*(A$="P")+1*(A$="K")+40*(A$="H")-1*(A$="M"):D8=D:GOTO 1200
  108. 1152  IF A$="Q" OR A$="q" THEN 2006
  109. 1154  IF A$<>"" THEN D=-40*(A$="2")+1*(A$="4")+40*(A$="8")-1*(A$="6"):D8=D
  110. 1160  IF A$="" THEN D=D8
  111. 1170  IF A$=" " AND V=1 AND BB<7 THEN O2=15:D=D9:BB=BB+1
  112. 1190  IF A$="5" THEN RETURN 
  113. 1200  P9=P+D: IF FNPE (P9)>Y THEN 1240
  114. 1210  IF FNPE (P9)= 15 THEN 1240
  115. 1220  IF D9<>D THEN D=D9: GOTO 1200
  116. 1230  RETURN 
  117. 1240  IF FNPE (P9)=  2 THEN RETURN
  118. 1250  N2= FNPE (P9):LOCATE FNROW(P9),FNCOL(P9) :PRINTCHR$(2)
  119. 1255  LOCATE FNROW(P),FNCOL(P):IF O2 = 185 OR O2 = 186 OR O2 >200 THEN COLOR 0,7
  120. 1260  PRINT CHR$( O2):O2=N2:P=P9:COLOR 7,0
  121. 1270  IF P+D=LC OR P+D+D=LC OR P+3*D=LC OR P+4*D=LC THEN IF V=0 THEN V=1:V1=1
  122. 1280  IF V1=1 THEN GOSUB 1140:  COLOR 0,7: PRINT "THE CHASE";: LOCATE CSRLIN- 2: COLOR 7,0
  123. 1290  RETURN 
  124. 1300   FOR R2=1 TO 2
  125. 1310  FOR R=1000 TO 2550 STEP 40: SOUND R,0.4: NEXT
  126. 1320  FOR R=2550 TO 1000 STEP-40: SOUND R,0.4 :NEXT :NEXT R2
  127. 1330  RETURN
  128. 1340  T=3
  129. 1350  SOUND 2550 ,3: GOSUB 1410
  130. 1360  SOUND Y*10,2: GOSUB 1410
  131. 1370  SOUND   1520,2 : GOSUB 1410
  132. 1380  SOUND   1260,2 : GOSUB 1410
  133. 1390  SOUND 1555,2 :T=0: GOSUB 1410
  134. 1400  SOUND 1222,4: RETURN
  135. 1410  FOR X=1 TO T*17: NEXT : RETURN
  136. 1420  GOSUB 1140:  COLOR 0,7: PRINT " THE END ";: LOCATE CSRLIN- 2: COLOR 7,0
  137. 1430  LOCATE 19: PRINT
  138. 1440   LOCATE , 30: PRINT" YOU DID ":  LOCATE , 30: PRINT"   IT!   ": GOSUB 1340:FOR I = 1 TO 777: NEXT
  139. 1450   LOCATE CSRLIN- 2:  LOCATE , 30: PRINT"  PLAY   ":  LOCATE , 30: PRINT" AGAIN ? ";:LOCATE ,POS(0)-2
  140. 1460  ZT=TI:ZC=2
  141. 1462   A$ = INKEY$ : IF A$<>"" THEN 1470
  142. 1464  PRINT MID$(" ?",ZC,1);: LOCATE ,POS(0)- 1: ZC=3-ZC:SOUND 32767,4
  143. 1466  GOTO 1462
  144. 1470  IF A$="Y" OR A$=CR$ OR A$="y" THEN 290
  145. 1480  IF A$="N" OR A$="n" THEN  2006
  146. 1490  GOTO 1460
  147. 2006  COLOR 7,0: CLS: WIDTH 40 : KEY ON :SCREEN 0,0 ,0 : OUT 980,2 : OUT 981,43 :WIDTH 80:END
  148. 60200  IF PN=0 THEN 60250
  149. 60205  GOSUB 60500
  150. 60210  PRINT "PRESS ";: COLOR 0,7: PRINT "RETURN";: COLOR 7,0: PRINT " TO ";
  151. 60220  IF PN=LP THEN PRINT "BEGIN:";: GOTO 60240
  152. 60230  PRINT "CONTINUE:";
  153. 60240   T$ = INKEY$ : IF T$="" THEN 60240
  154. 60250  IF PN=LP THEN 60300
  155. 60260  PN=PN+1:  CLS
  156. 60265  GOSUB 60500
  157. 60270  RETURN 
  158. 60300   CLS :CR$=CHR$(13): GOTO 100
  159. 60430  RETURN 
  160. 60500  FOR I=1 TO 10: PRINT "SOUNDSOUNDSOUNDSOUND";: NEXT I:PRINT: RETURN
  161. 62000   CLS :  LOCATE CSRLIN+ 2:  LOCATE , 16:COLOR 0,7:PRINT PG$:COLOR 7,0
  162. 62010   LOCATE CSRLIN+ 1: PRINT " COPYRIGHT (C) 1980  BY KURT L CARPENTER
  163. 62020  GOSUB 60500
  164. 62030   LOCATE CSRLIN+ 1: PRINT "FIND AND CAPTURE THE BAD GUY
  165. 62080   LOCATE 12: PRINT "WANT DIRECTIONS? ":IN$ =INKEY$
  166. 62085  IF IN$=""THEN 62080
  167. 62090  IF LEFT$(IN$,1)<>"Y" AND LEFT$(IN$,1)<>"y" THEN 60300
  168. 62100  LP=1: GOSUB 60200
  169. 62110  PRINT "A MASTER CRIMINAL IS ON THE LOOSE! YOUR
  170. 62120   PRINT: PRINT "JOB IS TO ARREST HIM AS SOON AS YOU CAN.
  171. 62130  PRINT:PRINT "STEER THE SQUAD CAR (";CHR$(2)") WITH THE    8
  172. 62135   LOCATE , 37: PRINT CHR$(24)
  173. 62140   COLOR 0,7: PRINT "2";: COLOR 7,0: PRINT ", ";: COLOR 0,7: PRINT "4";: COLOR 7,0: PRINT ", ";: COLOR 0,7: PRINT "6";: COLOR 7,0: PRINT ", AND ";: COLOR 0,7: PRINT "8";: COLOR 7,0: PRINT " KEYS.  PRESS ";:COLOR 0,7:PRINT"5";:COLOR 7,0
  174. 62142  PRINT"   4 "CHR$(27) "SOUNDBEEPSOUND"CHR$(26)" 6"
  175. 62145   LOCATE , 37: PRINT;CHR$(25)
  176. 62150  PRINT "TO STOP THE SQUAD CAR.  YOUR ONLY   2
  177. 62170   LOCATE CSRLIN+ 1: PRINT "CLUES ARE THE CRIMES COMMITTED. ONCE YOU
  178. 62180  PRINT:PRINT "ARE WITHIN A BLOCK OF THE CRIMINAL, YOU
  179. 62190   LOCATE CSRLIN+ 1: PRINT "WILL SEE HIM (";: COLOR 0,7: PRINT "*";: COLOR 7,0: PRINT "). TO SET A BARRICADE,
  180. 62200   LOCATE CSRLIN+ 1: PRINT "PRESS ";: COLOR 0,7: PRINT "SPACE";: COLOR 7,0: PRINT ". WHEN THE CROOK HAS BEEN
  181. 62210   LOCATE CSRLIN+ 1: PRINT "TRAPPED BETWEEN YOU AND A BARRICADE
  182. 62215   LOCATE CSRLIN+ 1: PRINT "YOUR JOB IS DONE.
  183. 62220  GOSUB 60200
  184. 64999  CLEAR
  185.